/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / packages / lpr.elc.z / lpr.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 33 3a 30 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:53:07 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 61 63 6b |s-20.3/l|isp/pack|
|000000a0| 61 67 65 73 2f 6c 70 72 | 2e 65 6c 0a 3b 3b 3b 20 |ages/lpr|.el.;;; |
|000000b0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 32 30 |emacs ve|rsion 20|
|000000c0| 2e 34 20 22 45 6d 65 72 | 61 6c 64 22 20 58 45 6d |.4 "Emer|ald" XEm|
|000000d0| 61 63 73 20 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |acs  Luc|id..;;; |
|000000e0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000f0| 20 32 2e 32 35 20 58 45 | 6d 61 63 73 3b 20 32 32 | 2.25 XE|macs; 22|
|00000100| 2d 4d 61 72 2d 39 36 2e | 0a 3b 3b 3b 20 6f 70 74 |-Mar-96.|.;;; opt|
|00000110| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000120| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000130| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000140| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000150| 6e 20 45 6d 61 63 73 20 | 31 39 2e 0a 0a 28 69 66 |n Emacs |19...(if|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000180| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000190| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|000001a0| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|000001b0| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001c0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001d0| 69 6f 6e 20 22 32 30 22 | 29 29 29 0a 20 20 20 20 |ion "20"|))).    |
|000001e0| 28 65 72 72 6f 72 20 22 | 60 6c 70 72 2e 65 6c 27 |(error "|`lpr.el'|
|000001f0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|00000200| 72 20 45 6d 61 63 73 20 | 32 30 22 29 29 0a 0a 28 |r Emacs |20"))..(|
|00000210| 6f 72 20 28 62 6f 75 6e | 64 70 20 27 63 75 72 72 |or (boun|dp 'curr|
|00000220| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 29 20 28 |ent-load|-list) (|
|00000230| 73 65 74 71 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |setq cur|rent-loa|
|00000240| 64 2d 6c 69 73 74 20 6e | 69 6c 29 29 0a 0a 0a 28 |d-list n|il))...(|
|00000250| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 67 |custom-d|eclare-g|
|00000260| 72 6f 75 70 20 27 6c 70 | 72 20 6e 69 6c 20 22 50 |roup 'lp|r nil "P|
|00000270| 72 69 6e 74 20 45 6d 61 | 63 73 20 62 75 66 66 65 |rint Ema|cs buffe|
|00000280| 72 20 6f 6e 20 6c 69 6e | 65 20 70 72 69 6e 74 65 |r on lin|e printe|
|00000290| 72 22 20 3a 67 72 6f 75 | 70 20 27 77 70 29 0a 28 |r" :grou|p 'wp).(|
|000002a0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|000002b0| 61 72 69 61 62 6c 65 20 | 27 6c 70 72 2d 73 77 69 |ariable |'lpr-swi|
|000002c0| 74 63 68 65 73 20 27 6e | 69 6c 20 22 2a 4c 69 73 |tches 'n|il "*Lis|
|000002d0| 74 20 6f 66 20 73 74 72 | 69 6e 67 73 20 74 6f 20 |t of str|ings to |
|000002e0| 70 61 73 73 20 61 73 20 | 65 78 74 72 61 20 6f 70 |pass as |extra op|
|000002f0| 74 69 6f 6e 73 20 66 6f | 72 20 74 68 65 20 70 72 |tions fo|r the pr|
|00000300| 69 6e 74 65 72 20 70 72 | 6f 67 72 61 6d 2e 5c 6e |inter pr|ogram.\n|
|00000310| 53 65 65 20 60 6c 70 72 | 2d 63 6f 6d 6d 61 6e 64 |See `lpr|-command|
|00000320| 27 2e 22 20 3a 74 79 70 | 65 20 27 28 72 65 70 65 |'." :typ|e '(repe|
|00000330| 61 74 20 28 73 74 72 69 | 6e 67 20 3a 74 61 67 20 |at (stri|ng :tag |
|00000340| 22 41 72 67 75 6d 65 6e | 74 22 29 29 20 3a 67 72 |"Argumen|t")) :gr|
|00000350| 6f 75 70 20 27 6c 70 72 | 29 0a 28 63 75 73 74 6f |oup 'lpr|).(custo|
|00000360| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00000370| 6c 65 20 27 6c 70 72 2d | 61 64 64 2d 73 77 69 74 |le 'lpr-|add-swit|
|00000380| 63 68 65 73 20 27 28 65 | 71 20 73 79 73 74 65 6d |ches '(e|q system|
|00000390| 2d 74 79 70 65 20 27 62 | 65 72 6b 65 6c 65 79 2d |-type 'b|erkeley-|
|000003a0| 75 6e 69 78 29 20 22 2a | 4e 6f 6e 2d 6e 69 6c 20 |unix) "*|Non-nil |
|000003b0| 6d 65 61 6e 73 20 63 6f | 6e 73 74 72 75 63 74 20 |means co|nstruct |
|000003c0| 2d 54 20 61 6e 64 20 2d | 4a 20 6f 70 74 69 6f 6e |-T and -|J option|
|000003d0| 73 20 66 6f 72 20 74 68 | 65 20 70 72 69 6e 74 65 |s for th|e printe|
|000003e0| 72 20 70 72 6f 67 72 61 | 6d 2e 5c 6e 54 68 65 73 |r progra|m.\nThes|
|000003f0| 65 20 61 72 65 20 6d 61 | 64 65 20 61 73 73 75 6d |e are ma|de assum|
|00000400| 69 6e 67 20 74 68 61 74 | 20 74 68 65 20 70 72 6f |ing that| the pro|
|00000410| 67 72 61 6d 20 69 73 20 | 60 6c 70 72 27 3b 5c 6e |gram is |`lpr';\n|
|00000420| 69 66 20 79 6f 75 20 61 | 72 65 20 75 73 69 6e 67 |if you a|re using|
|00000430| 20 73 6f 6d 65 20 6f 74 | 68 65 72 20 69 6e 63 6f | some ot|her inco|
|00000440| 6d 70 61 74 69 62 6c 65 | 20 70 72 69 6e 74 65 72 |mpatible| printer|
|00000450| 20 70 72 6f 67 72 61 6d | 2c 5c 6e 74 68 69 73 20 | program|,\nthis |
|00000460| 76 61 72 69 61 62 6c 65 | 20 73 68 6f 75 6c 64 20 |variable| should |
|00000470| 62 65 20 6e 69 6c 2e 22 | 20 3a 74 79 70 65 20 27 |be nil."| :type '|
|00000480| 62 6f 6f 6c 65 61 6e 20 | 3a 67 72 6f 75 70 20 27 |boolean |:group '|
|00000490| 6c 70 72 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |lpr).(cu|stom-dec|
|000004a0| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 6c |lare-var|iable 'l|
|000004b0| 70 72 2d 63 6f 6d 6d 61 | 6e 64 20 27 28 69 66 20 |pr-comma|nd '(if |
|000004c0| 28 6d 65 6d 71 20 73 79 | 73 74 65 6d 2d 74 79 70 |(memq sy|stem-typ|
|000004d0| 65 20 27 28 75 73 67 2d | 75 6e 69 78 2d 76 20 64 |e '(usg-|unix-v d|
|000004e0| 67 75 78 20 68 70 75 78 | 20 69 72 69 78 29 29 20 |gux hpux| irix)) |
|000004f0| 22 6c 70 22 20 22 6c 70 | 72 22 29 20 22 2a 4e 61 |"lp" "lp|r") "*Na|
|00000500| 6d 65 20 6f 66 20 70 72 | 6f 67 72 61 6d 20 66 6f |me of pr|ogram fo|
|00000510| 72 20 70 72 69 6e 74 69 | 6e 67 20 61 20 66 69 6c |r printi|ng a fil|
|00000520| 65 2e 22 20 3a 74 79 70 | 65 20 27 73 74 72 69 6e |e." :typ|e 'strin|
|00000530| 67 20 3a 67 72 6f 75 70 | 20 27 6c 70 72 29 0a 28 |g :group| 'lpr).(|
|00000540| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00000550| 61 72 69 61 62 6c 65 20 | 27 6c 70 72 2d 68 65 61 |ariable |'lpr-hea|
|00000560| 64 65 72 73 2d 73 77 69 | 74 63 68 65 73 20 27 6e |ders-swi|tches 'n|
|00000570| 69 6c 20 22 2a 4c 69 73 | 74 20 6f 66 20 73 74 72 |il "*Lis|t of str|
|00000580| 69 6e 67 73 20 6f 66 20 | 6f 70 74 69 6f 6e 73 20 |ings of |options |
|00000590| 74 6f 20 72 65 71 75 65 | 73 74 20 70 61 67 65 20 |to reque|st page |
|000005a0| 68 65 61 64 69 6e 67 73 | 20 69 6e 20 74 68 65 20 |headings| in the |
|000005b0| 70 72 69 6e 74 65 72 20 | 70 72 6f 67 72 61 6d 2e |printer |program.|
|000005c0| 5c 6e 49 66 20 6e 69 6c | 2c 20 77 65 20 72 75 6e |\nIf nil|, we run|
|000005d0| 20 60 6c 70 72 2d 70 61 | 67 65 2d 68 65 61 64 65 | `lpr-pa|ge-heade|
|000005e0| 72 2d 70 72 6f 67 72 61 | 6d 27 20 74 6f 20 6d 61 |r-progra|m' to ma|
|000005f0| 6b 65 20 70 61 67 65 20 | 68 65 61 64 69 6e 67 73 |ke page |headings|
|00000600| 5c 6e 61 6e 64 20 70 72 | 69 6e 74 20 74 68 65 20 |\nand pr|int the |
|00000610| 72 65 73 75 6c 74 2e 22 | 20 3a 74 79 70 65 20 27 |result."| :type '|
|00000620| 28 72 65 70 65 61 74 20 | 28 73 74 72 69 6e 67 20 |(repeat |(string |
|00000630| 3a 74 61 67 20 22 41 72 | 67 75 6d 65 6e 74 22 29 |:tag "Ar|gument")|
|00000640| 29 20 3a 67 72 6f 75 70 | 20 27 6c 70 72 29 0a 28 |) :group| 'lpr).(|
|00000650| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00000660| 61 72 69 61 62 6c 65 20 | 27 70 72 69 6e 74 2d 72 |ariable |'print-r|
|00000670| 65 67 69 6f 6e 2d 66 75 | 6e 63 74 69 6f 6e 20 27 |egion-fu|nction '|
|00000680| 6e 69 6c 20 22 46 75 6e | 63 74 69 6f 6e 20 74 6f |nil "Fun|ction to|
|00000690| 20 63 61 6c 6c 20 74 6f | 20 70 72 69 6e 74 20 74 | call to| print t|
|000006a0| 68 65 20 72 65 67 69 6f | 6e 20 6f 6e 20 61 20 70 |he regio|n on a p|
|000006b0| 72 69 6e 74 65 72 2e 5c | 6e 53 65 65 20 64 65 66 |rinter.\|nSee def|
|000006c0| 69 6e 69 74 69 6f 6e 20 | 6f 66 20 60 70 72 69 6e |inition |of `prin|
|000006d0| 74 2d 72 65 67 69 6f 6e | 2d 31 27 20 66 6f 72 20 |t-region|-1' for |
|000006e0| 63 61 6c 6c 69 6e 67 20 | 63 6f 6e 76 65 6e 74 69 |calling |conventi|
|000006f0| 6f 6e 73 2e 22 20 3a 74 | 79 70 65 20 27 66 75 6e |ons." :t|ype 'fun|
|00000700| 63 74 69 6f 6e 20 3a 67 | 72 6f 75 70 20 27 6c 70 |ction :g|roup 'lp|
|00000710| 72 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |r).(cust|om-decla|
|00000720| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 6c 70 72 |re-varia|ble 'lpr|
|00000730| 2d 70 61 67 65 2d 68 65 | 61 64 65 72 2d 70 72 6f |-page-he|ader-pro|
|00000740| 67 72 61 6d 20 27 22 70 | 72 22 20 22 2a 4e 61 6d |gram '"p|r" "*Nam|
|00000750| 65 20 6f 66 20 70 72 6f | 67 72 61 6d 20 66 6f 72 |e of pro|gram for|
|00000760| 20 61 64 64 69 6e 67 20 | 70 61 67 65 20 68 65 61 | adding |page hea|
|00000770| 64 65 72 73 20 74 6f 20 | 61 20 66 69 6c 65 2e 22 |ders to |a file."|
|00000780| 20 3a 74 79 70 65 20 27 | 73 74 72 69 6e 67 20 3a | :type '|string :|
|00000790| 67 72 6f 75 70 20 27 6c | 70 72 29 0a 28 63 75 73 |group 'l|pr).(cus|
|000007a0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|000007b0| 61 62 6c 65 20 27 6c 70 | 72 2d 70 61 67 65 2d 68 |able 'lp|r-page-h|
|000007c0| 65 61 64 65 72 2d 73 77 | 69 74 63 68 65 73 20 27 |eader-sw|itches '|
|000007d0| 27 28 22 2d 66 22 29 20 | 22 2a 4c 69 73 74 20 6f |'("-f") |"*List o|
|000007e0| 66 20 73 74 72 69 6e 67 | 73 20 74 6f 20 75 73 65 |f string|s to use|
|000007f0| 20 61 73 20 6f 70 74 69 | 6f 6e 73 20 66 6f 72 20 | as opti|ons for |
|00000800| 74 68 65 20 70 61 67 65 | 2d 68 65 61 64 65 72 2d |the page|-header-|
|00000810| 67 65 6e 65 72 61 74 69 | 6e 67 20 70 72 6f 67 72 |generati|ng progr|
|00000820| 61 6d 2e 5c 6e 54 68 65 | 20 76 61 72 69 61 62 6c |am.\nThe| variabl|
|00000830| 65 20 60 6c 70 72 2d 70 | 61 67 65 2d 68 65 61 64 |e `lpr-p|age-head|
|00000840| 65 72 2d 70 72 6f 67 72 | 61 6d 27 20 73 70 65 63 |er-progr|am' spec|
|00000850| 69 66 69 65 73 20 74 68 | 65 20 70 72 6f 67 72 61 |ifies th|e progra|
|00000860| 6d 20 74 6f 20 75 73 65 | 2e 22 20 3a 74 79 70 65 |m to use|." :type|
|00000870| 20 27 28 72 65 70 65 61 | 74 20 73 74 72 69 6e 67 | '(repea|t string|
|00000880| 29 20 3a 67 72 6f 75 70 | 20 27 6c 70 72 29 0a 23 |) :group| 'lpr).#|
|00000890| 40 31 32 30 20 50 72 69 | 6e 74 20 62 75 66 66 65 |@120 Pri|nt buffe|
|000008a0| 72 20 63 6f 6e 74 65 6e | 74 73 20 61 73 20 77 69 |r conten|ts as wi|
|000008b0| 74 68 20 55 6e 69 78 20 | 63 6f 6d 6d 61 6e 64 20 |th Unix |command |
|000008c0| 60 6c 70 72 27 2e 0a 60 | 6c 70 72 2d 73 77 69 74 |`lpr'..`|lpr-swit|
|000008d0| 63 68 65 73 27 20 69 73 | 20 61 20 6c 69 73 74 20 |ches' is| a list |
|000008e0| 6f 66 20 65 78 74 72 61 | 20 73 77 69 74 63 68 65 |of extra| switche|
|000008f0| 73 20 28 73 74 72 69 6e | 67 73 29 20 74 6f 20 70 |s (strin|gs) to p|
|00000900| 61 73 73 20 74 6f 20 6c | 70 72 2e 1f 0a 28 64 65 |ass to l|pr...(de|
|00000910| 66 61 6c 69 61 73 20 27 | 6c 70 72 2d 62 75 66 66 |falias '|lpr-buff|
|00000920| 65 72 20 23 5b 6e 69 6c | 20 22 c0 65 64 09 c2 24 |er #[nil| ".ed..$|
|00000930| 87 22 20 5b 70 72 69 6e | 74 2d 72 65 67 69 6f 6e |." [prin|t-region|
|00000940| 2d 31 20 6c 70 72 2d 73 | 77 69 74 63 68 65 73 20 |-1 lpr-s|witches |
|00000950| 6e 69 6c 5d 20 35 20 28 | 23 24 20 2e 20 32 31 39 |nil] 5 (|#$ . 219|
|00000960| 37 29 20 6e 69 6c 5d 29 | 0a 23 40 31 32 33 20 50 |7) nil])|.#@123 P|
|00000970| 72 69 6e 74 20 62 75 66 | 66 65 72 20 63 6f 6e 74 |rint buf|fer cont|
|00000980| 65 6e 74 73 20 61 73 20 | 77 69 74 68 20 55 6e 69 |ents as |with Uni|
|00000990| 78 20 63 6f 6d 6d 61 6e | 64 20 60 6c 70 72 20 2d |x comman|d `lpr -|
|000009a0| 70 27 2e 0a 60 6c 70 72 | 2d 73 77 69 74 63 68 65 |p'..`lpr|-switche|
|000009b0| 73 27 20 69 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |s' is a |list of |
|000009c0| 65 78 74 72 61 20 73 77 | 69 74 63 68 65 73 20 28 |extra sw|itches (|
|000009d0| 73 74 72 69 6e 67 73 29 | 20 74 6f 20 70 61 73 73 |strings)| to pass|
|000009e0| 20 74 6f 20 6c 70 72 2e | 1f 0a 28 64 65 66 61 6c | to lpr.|..(defal|
|000009f0| 69 61 73 20 27 70 72 69 | 6e 74 2d 62 75 66 66 65 |ias 'pri|nt-buffe|
|00000a00| 72 20 23 5b 6e 69 6c 20 | 22 c0 65 64 09 c2 24 87 |r #[nil |".ed..$.|
|00000a10| 22 20 5b 70 72 69 6e 74 | 2d 72 65 67 69 6f 6e 2d |" [print|-region-|
|00000a20| 31 20 6c 70 72 2d 73 77 | 69 74 63 68 65 73 20 74 |1 lpr-sw|itches t|
|00000a30| 5d 20 35 20 28 23 24 20 | 2e 20 32 34 31 35 29 20 |] 5 (#$ |. 2415) |
|00000a40| 6e 69 6c 5d 29 0a 23 40 | 31 32 30 20 50 72 69 6e |nil]).#@|120 Prin|
|00000a50| 74 20 72 65 67 69 6f 6e | 20 63 6f 6e 74 65 6e 74 |t region| content|
|00000a60| 73 20 61 73 20 77 69 74 | 68 20 55 6e 69 78 20 63 |s as wit|h Unix c|
|00000a70| 6f 6d 6d 61 6e 64 20 60 | 6c 70 72 27 2e 0a 60 6c |ommand `|lpr'..`l|
|00000a80| 70 72 2d 73 77 69 74 63 | 68 65 73 27 20 69 73 20 |pr-switc|hes' is |
|00000a90| 61 20 6c 69 73 74 20 6f | 66 20 65 78 74 72 61 20 |a list o|f extra |
|00000aa0| 73 77 69 74 63 68 65 73 | 20 28 73 74 72 69 6e 67 |switches| (string|
|00000ab0| 73 29 20 74 6f 20 70 61 | 73 73 20 74 6f 20 6c 70 |s) to pa|ss to lp|
|00000ac0| 72 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6c |r...(def|alias 'l|
|00000ad0| 70 72 2d 72 65 67 69 6f | 6e 20 23 5b 28 73 74 61 |pr-regio|n #[(sta|
|00000ae0| 72 74 20 65 6e 64 29 20 | 22 c0 09 5c 6e 0b c4 24 |rt end) |"..\n..$|
|00000af0| 87 22 20 5b 70 72 69 6e | 74 2d 72 65 67 69 6f 6e |." [prin|t-region|
|00000b00| 2d 31 20 73 74 61 72 74 | 20 65 6e 64 20 6c 70 72 |-1 start| end lpr|
|00000b10| 2d 73 77 69 74 63 68 65 | 73 20 6e 69 6c 5d 20 35 |-switche|s nil] 5|
|00000b20| 20 28 23 24 20 2e 20 32 | 36 33 36 29 20 22 72 22 | (#$ . 2|636) "r"|
|00000b30| 5d 29 0a 23 40 31 32 33 | 20 50 72 69 6e 74 20 72 |]).#@123| Print r|
|00000b40| 65 67 69 6f 6e 20 63 6f | 6e 74 65 6e 74 73 20 61 |egion co|ntents a|
|00000b50| 73 20 77 69 74 68 20 55 | 6e 69 78 20 63 6f 6d 6d |s with U|nix comm|
|00000b60| 61 6e 64 20 60 6c 70 72 | 20 2d 70 27 2e 0a 60 6c |and `lpr| -p'..`l|
|00000b70| 70 72 2d 73 77 69 74 63 | 68 65 73 27 20 69 73 20 |pr-switc|hes' is |
|00000b80| 61 20 6c 69 73 74 20 6f | 66 20 65 78 74 72 61 20 |a list o|f extra |
|00000b90| 73 77 69 74 63 68 65 73 | 20 28 73 74 72 69 6e 67 |switches| (string|
|00000ba0| 73 29 20 74 6f 20 70 61 | 73 73 20 74 6f 20 6c 70 |s) to pa|ss to lp|
|00000bb0| 72 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |r...(def|alias 'p|
|00000bc0| 72 69 6e 74 2d 72 65 67 | 69 6f 6e 20 23 5b 28 73 |rint-reg|ion #[(s|
|00000bd0| 74 61 72 74 20 65 6e 64 | 29 20 22 c0 09 5c 6e 0b |tart end|) "..\n.|
|00000be0| c4 24 87 22 20 5b 70 72 | 69 6e 74 2d 72 65 67 69 |.$." [pr|int-regi|
|00000bf0| 6f 6e 2d 31 20 73 74 61 | 72 74 20 65 6e 64 20 6c |on-1 sta|rt end l|
|00000c00| 70 72 2d 73 77 69 74 63 | 68 65 73 20 74 5d 20 35 |pr-switc|hes t] 5|
|00000c10| 20 28 23 24 20 2e 20 32 | 38 37 33 29 20 22 72 22 | (#$ . 2|873) "r"|
|00000c20| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6c 70 |]).(defa|lias 'lp|
|00000c30| 72 2d 66 6c 61 74 74 65 | 6e 2d 6c 69 73 74 20 23 |r-flatte|n-list #|
|00000c40| 5b 28 26 72 65 73 74 20 | 6c 69 73 74 29 20 22 c0 |[(&rest |list) ".|
|00000c50| 09 21 87 22 20 5b 6c 70 | 72 2d 66 6c 61 74 74 65 |.!." [lp|r-flatte|
|00000c60| 6e 2d 6c 69 73 74 2d 31 | 20 6c 69 73 74 5d 20 32 |n-list-1| list] 2|
|00000c70| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6c 70 |]).(defa|lias 'lp|
|00000c80| 72 2d 66 6c 61 74 74 65 | 6e 2d 6c 69 73 74 2d 31 |r-flatte|n-list-1|
|00000c90| 20 23 5b 28 6c 69 73 74 | 29 20 22 08 ac 82 c1 87 | #[(list|) ".....|
|00000ca0| 08 3a ab 8b c2 c3 08 40 | 21 c3 08 41 21 5c 22 87 |.:.....@|!..A!\".|
|00000cb0| 08 43 87 22 20 5b 6c 69 | 73 74 20 6e 69 6c 20 61 |.C." [li|st nil a|
|00000cc0| 70 70 65 6e 64 20 6c 70 | 72 2d 66 6c 61 74 74 65 |ppend lp|r-flatte|
|00000cd0| 6e 2d 6c 69 73 74 2d 31 | 5d 20 34 5d 29 0a 28 64 |n-list-1|] 4]).(d|
|00000ce0| 65 66 61 6c 69 61 73 20 | 27 70 72 69 6e 74 2d 72 |efalias |'print-r|
|00000cf0| 65 67 69 6f 6e 2d 31 20 | 23 5b 28 73 74 61 72 74 |egion-1 |#[(start|
|00000d00| 20 65 6e 64 20 73 77 69 | 74 63 68 65 73 20 70 61 | end swi|tches pa|
|00000d10| 67 65 2d 68 65 61 64 65 | 72 73 29 20 22 c0 20 c1 |ge-heade|rs) ". .|
|00000d20| 50 c0 20 c1 50 5c 6e 89 | 0b c4 89 1d 1e 06 1e 07 |P. .P\n.|........|
|00000d30| 1e 08 1e 09 1e 5c 6e 1e | 0b 8a 0e 0c ab 96 0e 0d |.....\n.|........|
|00000d40| ab 92 ce 0e 0d 3b ab 85 | 0e 0d 43 aa 82 0e 0d 0e |.....;..|..C.....|
|00000d50| 0f 5c 22 16 0f d0 d1 d2 | 0e 0f 5c 22 21 89 16 06 |.\".....|..\"!...|
|00000d60| ab 8a d3 d4 d5 0e 06 d6 | 23 50 aa 81 d7 15 d8 d9 |........|#P......|
|00000d70| 0d 5c 22 88 0b da 55 ac | a4 db 0e 1c 0e 1d 5c 22 |.\"...U.|......\"|
|00000d80| 89 1e 1e 40 16 1c 0e 1e | 41 16 1d 0e 07 13 8a 0e |...@....|A.......|
|00000d90| 1d 62 88 df 20 16 1d 29 | e0 65 64 5c 22 88 29 0e |.b.. ..)|.ed\".).|
|00000da0| 0c ab b5 0e 0d ac b1 db | 0e 1c 0e 1d 5c 22 89 1e |........|....\"..|
|00000db0| 1e 40 16 1c 0e 1e 41 16 | 1d 29 e1 e2 0e 1c 0e 1d |.@....A.|.)......|
|00000dc0| 0e 23 e4 89 c4 0e 25 ad | 84 e6 0e 5c 6e 44 0e 27 |.#....%.|...\nD.'|
|00000dd0| a4 26 08 88 65 16 1c 64 | 16 1d e1 0e 28 ae 81 e2 |.&..e..d|....(...|
|00000de0| 0e 1c 0e 1d 0e 29 c4 89 | 89 af 06 0e 25 ad 84 ea |.....)..|....%...|
|00000df0| 0e 0b 44 0e 25 ad 88 0e | 0d ad 84 eb 0e 5c 6e 44 |..D.%...|.....\nD|
|00000e00| a4 0e 06 a4 a4 5c 22 88 | ec 0e 1d 21 ab 86 0e 1d |.....\".|...!....|
|00000e10| c4 89 93 88 d8 ed 0d 5c | 22 2e 08 87 22 20 5b 62 |.......\|"..." [b|
|00000e20| 75 66 66 65 72 2d 6e 61 | 6d 65 20 22 20 45 6d 61 |uffer-na|me " Ema|
|00000e30| 63 73 20 62 75 66 66 65 | 72 22 20 62 75 66 66 65 |cs buffe|r" buffe|
|00000e40| 72 2d 66 69 6c 65 2d 74 | 79 70 65 20 74 61 62 2d |r-file-t|ype tab-|
|00000e50| 77 69 64 74 68 20 6e 69 | 6c 20 73 77 69 74 63 68 |width ni|l switch|
|00000e60| 2d 73 74 72 69 6e 67 20 | 6e 73 77 69 74 63 68 65 |-string |nswitche|
|00000e70| 73 20 77 69 64 74 68 20 | 62 69 6e 61 72 79 2d 70 |s width |binary-p|
|00000e80| 72 6f 63 65 73 73 2d 6f | 75 74 70 75 74 20 62 69 |rocess-o|utput bi|
|00000e90| 6e 61 72 79 2d 70 72 6f | 63 65 73 73 2d 69 6e 70 |nary-pro|cess-inp|
|00000ea0| 75 74 20 74 69 74 6c 65 | 20 6e 61 6d 65 20 70 61 |ut title| name pa|
|00000eb0| 67 65 2d 68 65 61 64 65 | 72 73 20 6c 70 72 2d 68 |ge-heade|rs lpr-h|
|00000ec0| 65 61 64 65 72 73 2d 73 | 77 69 74 63 68 65 73 20 |eaders-s|witches |
|00000ed0| 61 70 70 65 6e 64 20 73 | 77 69 74 63 68 65 73 20 |append s|witches |
|00000ee0| 6c 70 72 2d 66 6c 61 74 | 74 65 6e 2d 6c 69 73 74 |lpr-flat|ten-list|
|00000ef0| 20 6d 61 70 63 61 72 20 | 23 5b 28 61 72 67 29 20 | mapcar |#[(arg) |
|00000f00| 22 08 3b ab 82 08 87 c1 | 08 21 ab 83 08 20 87 08 |".;.....|.!... ..|
|00000f10| 39 ab 84 c2 08 21 87 08 | 3a ab 87 c3 08 40 08 41 |9....!..|:....@.A|
|00000f20| 5c 22 87 c4 87 22 20 5b | 61 72 67 20 66 75 6e 63 |\"..." [|arg func|
|00000f30| 74 69 6f 6e 70 20 65 76 | 61 6c 20 61 70 70 6c 79 |tionp ev|al apply|
|00000f40| 20 6e 69 6c 5d 20 33 5d | 20 22 20 77 69 74 68 20 | nil] 3]| " with |
|00000f50| 6f 70 74 69 6f 6e 73 20 | 22 20 6d 61 70 63 6f 6e |options |" mapcon|
|00000f60| 63 61 74 20 69 64 65 6e | 74 69 74 79 20 22 20 22 |cat iden|tity " "|
|00000f70| 20 22 22 20 6d 65 73 73 | 61 67 65 20 22 53 70 6f | "" mess|age "Spo|
|00000f80| 6f 6c 69 6e 67 25 73 2e | 2e 2e 22 20 38 20 70 72 |oling%s.|.." 8 pr|
|00000f90| 69 6e 74 2d 72 65 67 69 | 6f 6e 2d 6e 65 77 2d 62 |int-regi|on-new-b|
|00000fa0| 75 66 66 65 72 20 73 74 | 61 72 74 20 65 6e 64 20 |uffer st|art end |
|00000fb0| 6e 65 77 2d 63 6f 6f 72 | 64 73 20 70 6f 69 6e 74 |new-coor|ds point|
|00000fc0| 2d 6d 61 72 6b 65 72 20 | 75 6e 74 61 62 69 66 79 |-marker |untabify|
|00000fd0| 20 61 70 70 6c 79 20 63 | 61 6c 6c 2d 70 72 6f 63 | apply c|all-proc|
|00000fe0| 65 73 73 2d 72 65 67 69 | 6f 6e 20 6c 70 72 2d 70 |ess-regi|on lpr-p|
|00000ff0| 61 67 65 2d 68 65 61 64 | 65 72 2d 70 72 6f 67 72 |age-head|er-progr|
|00001000| 61 6d 20 74 20 6c 70 72 | 2d 61 64 64 2d 73 77 69 |am t lpr|-add-swi|
|00001010| 74 63 68 65 73 20 22 2d | 68 22 20 6c 70 72 2d 70 |tches "-|h" lpr-p|
|00001020| 61 67 65 2d 68 65 61 64 | 65 72 2d 73 77 69 74 63 |age-head|er-switc|
|00001030| 68 65 73 20 70 72 69 6e | 74 2d 72 65 67 69 6f 6e |hes prin|t-region|
|00001040| 2d 66 75 6e 63 74 69 6f | 6e 20 6c 70 72 2d 63 6f |-functio|n lpr-co|
|00001050| 6d 6d 61 6e 64 20 22 2d | 4a 22 20 22 2d 54 22 20 |mmand "-|J" "-T" |
|00001060| 6d 61 72 6b 65 72 70 20 | 22 53 70 6f 6f 6c 69 6e |markerp |"Spoolin|
|00001070| 67 25 73 2e 2e 2e 64 6f | 6e 65 22 5d 20 31 31 5d |g%s...do|ne"] 11]|
|00001080| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 72 69 |).(defal|ias 'pri|
|00001090| 6e 74 2d 72 65 67 69 6f | 6e 2d 6e 65 77 2d 62 75 |nt-regio|n-new-bu|
|000010a0| 66 66 65 72 20 23 5b 28 | 6f 73 74 61 72 74 20 6f |ffer #[(|ostart o|
|000010b0| 65 6e 64 29 20 22 c0 20 | c1 98 ab 84 5c 6e 0b 42 |end) ". |....\n.B|
|000010c0| 87 70 1c c5 c1 21 71 88 | 7e 88 c6 20 88 c7 0c 5c |.p...!q.|~.. ...\|
|000010d0| 6e 0b 23 88 65 64 29 42 | 87 22 20 5b 62 75 66 66 |n.#.ed)B|." [buff|
|000010e0| 65 72 2d 6e 61 6d 65 20 | 22 20 2a 73 70 6f 6f 6c |er-name |" *spool|
|000010f0| 20 74 65 6d 70 2a 22 20 | 6f 73 74 61 72 74 20 6f | temp*" |ostart o|
|00001100| 65 6e 64 20 6f 6c 64 62 | 75 66 20 67 65 74 2d 62 |end oldb|uf get-b|
|00001110| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 65 72 61 |uffer-cr|eate era|
|00001120| 73 65 2d 62 75 66 66 65 | 72 20 69 6e 73 65 72 74 |se-buffe|r insert|
|00001130| 2d 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e |-buffer-|substrin|
|00001140| 67 5d 20 34 5d 29 0a 23 | 40 31 35 36 20 54 75 72 |g] 4]).#|@156 Tur|
|00001150| 6e 20 6e 6f 6e 70 72 69 | 6e 74 69 6e 67 20 63 68 |n nonpri|nting ch|
|00001160| 61 72 61 63 74 65 72 73 | 20 28 6f 74 68 65 72 20 |aracters| (other |
|00001170| 74 68 61 6e 20 54 41 42 | 2c 20 4c 46 2c 20 53 50 |than TAB|, LF, SP|
|00001180| 43 2c 20 52 45 54 2c 20 | 61 6e 64 20 46 46 29 0a |C, RET, |and FF).|
|00001190| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |in the c|urrent b|
|000011a0| 75 66 66 65 72 20 69 6e | 74 6f 20 70 72 69 6e 74 |uffer in|to print|
|000011b0| 61 62 6c 65 20 72 65 70 | 72 65 73 65 6e 74 61 74 |able rep|resentat|
|000011c0| 69 6f 6e 73 20 61 73 20 | 63 6f 6e 74 72 6f 6c 20 |ions as |control |
|000011d0| 6f 72 0a 68 65 78 61 64 | 65 63 69 6d 61 6c 20 65 |or.hexad|ecimal e|
|000011e0| 73 63 61 70 65 73 2e 1f | 0a 28 64 65 66 61 6c 69 |scapes..|.(defali|
|000011f0| 61 73 20 27 70 72 69 6e | 74 69 66 79 2d 72 65 67 |as 'prin|tify-reg|
|00001200| 69 6f 6e 20 23 5b 28 62 | 65 67 69 6e 20 65 6e 64 |ion #[(b|egin end|
|00001210| 29 20 22 8a 08 62 88 c1 | 1a c3 c4 0d c6 23 ad 9b |) "..b..|.....#..|
|00001220| 68 12 c7 c8 21 88 5c 6e | c9 57 ab 88 ca cb 5c 6e |h...!.\n|.W....\n|
|00001230| cc 5c 5c 5c 22 aa 84 ca | cd 5c 6e 5c 22 63 88 aa |.\\\"...|.\n\"c..|
|00001240| 5e 2a 87 22 20 5b 62 65 | 67 69 6e 20 6e 69 6c 20 |^*." [be|gin nil |
|00001250| 63 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |c re-sea|rch-forw|
|00001260| 61 72 64 20 22 5b 00 2d | 08 0b 0e 2d 1f 7f 2d ff |ard "[.-|...-..-.|
|00001270| 5d 22 20 65 6e 64 20 74 | 20 64 65 6c 65 74 65 2d |]" end t| delete-|
|00001280| 62 61 63 6b 77 61 72 64 | 2d 63 68 61 72 20 31 20 |backward|-char 1 |
|00001290| 3f 5c 20 20 66 6f 72 6d | 61 74 20 22 5c 5c 5e 25 |?\  form|at "\\^%|
|000012a0| 63 22 20 3f 5c 40 20 22 | 5c 5c 25 30 32 78 22 5d |c" ?\@ "|\\%02x"]|
|000012b0| 20 34 20 28 23 24 20 2e | 20 34 34 32 39 29 20 22 | 4 (#$ .| 4429) "|
|000012c0| 72 22 5d 29 0a 28 70 72 | 6f 76 69 64 65 20 27 6c |r"]).(pr|ovide 'l|
|000012d0| 70 72 29 0a             |                         |pr).    |        |
+--------+-------------------------+-------------------------+--------+--------+